home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / general / Interval.st < prev    next >
Text File  |  2000-02-14  |  2KB  |  62 lines
  1. Class Interval :SequenceableCollection
  2. ! lower upper step current !
  3. [
  4.    from: lowerBound to: upperBound by: stepSize
  5.      current <- lower <- lowerBound.
  6.      upper   <- upperBound.
  7.      step    <- stepSize
  8. |  
  9.    size   
  10.      ^ ((step strictlyPositive) 
  11.           ifTrue:  [upper < lower]
  12.           ifFalse: [lower < upper] )
  13.         ifTrue:  [ 0 ]
  14.         ifFalse: [upper - lower // step + 1]
  15. |  
  16.    inRange: value
  17.      ^ (step strictlyPositive)
  18.         ifTrue:  [(value >= lower) and: [value <= upper]]
  19.         ifFalse: [(value >= upper) and: [value <= lower]]
  20. | 
  21.    first
  22.      current <- lower.
  23.      ^ (self inRange: current) ifTrue: [current]
  24. |
  25.    last
  26.      current <- upper.
  27.      ^ (self inRange: current) ifTrue: [current]
  28. |   
  29.    next
  30.      current <- current + step.
  31.      ^ (self inRange: current) ifTrue: [current]
  32. |
  33.    at: index ifAbsent: exceptionBlock   ! val !
  34.      val <- lower + (step * (index - 1)).
  35.      ^ (self inRange: val)
  36.         ifTrue: [ val ]
  37.         ifFalse: [exceptionBlock value]
  38. | 
  39.    printString
  40.      ^ 'Interval ', lower printString , ' to ',
  41.                     upper printString , ' by ' , step printString 
  42. |   
  43.    coerce: newcollection
  44.      ^ newcollection asArray
  45. |   
  46.    at: index put: val
  47.      ^ self error: 'cannot store into Interval'
  48. |   
  49.    add: val
  50.      ^ self error: 'cannot store into Interval'
  51. |   
  52.    removeKey: key ifAbsent: exceptionBlock
  53.      self error: 'cannot remove from Interval'.
  54.      ^ exceptionBlock value
  55. |
  56.    deepCopy
  57.      ^ lower to: upper by: step
  58. |   
  59.    shallowCopy
  60.      ^ lower to: upper by: step
  61. ]
  62.